home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Markets / Education / HyperCard In Education / Plate Tectonics / card_4445.txt < prev    next >
Text File  |  1990-04-02  |  3KB  |  115 lines
  1. -- card: 4445 from stack: in
  2. -- bmap block id: 5384
  3. -- flags: 0000
  4. -- background id: 2769
  5. -- name: Collision Boundaries
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global buttonname
  9.   put the short name of me into buttonname
  10.   set the hilite of background button buttonname to true
  11. end OpenCard
  12.  
  13. on CloseCard
  14.   lock screen
  15.   global buttonname
  16.   put the short name of me into buttonname
  17.   set the hilite of background button buttonname to false
  18.   hide cd btn 2
  19.   cleanexit
  20.   unlock screen
  21. end CloseCard
  22.  
  23.  
  24.  
  25. -- part 3 (button)
  26. -- low flags: 00
  27. -- high flags: A004
  28. -- rect: left=191 top=66 right=94 bottom=303
  29. -- title width / last selected line: 0
  30. -- icon id / first selected line: 0 / 0
  31. -- text alignment: 1
  32. -- font id: 0
  33. -- text size: 12
  34. -- style flags: 0
  35. -- line height: 16
  36. -- part name: Collision
  37. ----- HyperTalk script -----
  38. on mouseUp
  39.  
  40.  
  41.   global fieldname
  42.   lock screen
  43.   set the visible of card field "collision" to not the visible of card field "collision"
  44.   set the visible of card btn 2 to not the visible of card btn 2
  45.  
  46.   unlock screen with visual dissolve
  47.  
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 5 (field)
  53. -- low flags: 81
  54. -- high flags: 0004
  55. -- rect: left=124 top=68 right=315 bottom=400
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 0
  59. -- font id: 3
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: collision
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   set locktext of me to true
  67.   global fieldname
  68.   lock screen
  69.   hide me
  70.   --hide card button fieldname
  71.   hide cd btn 2
  72.  
  73.   unlock screen with visual dissolve
  74. end mouseup
  75.  
  76.  
  77.  
  78. -- part 6 (button)
  79. -- low flags: 80
  80. -- high flags: C000
  81. -- rect: left=124 top=69 right=96 bottom=397
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 2
  86. -- text size: 18
  87. -- style flags: 256
  88. -- line height: 24
  89. -- part name: Collision
  90. ----- HyperTalk script -----
  91. on mouseUp
  92.   lock screen
  93.   set the visible of card field "collision" to not the visible of card field "collision"
  94.   hide me
  95.   unlock screen with visual dissolve
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part contents for background part 1
  101. ----- text -----
  102. Collision Boundaries
  103.  
  104.  
  105. -- part contents for card part 5
  106. ----- text -----
  107.  
  108.  
  109. When 2 plates carrying continents collide a non-volcanic mountain range results. During this process sedimentary rock that usually forms in basins may be pushed up to many thousands of feet above sea level.
  110. Deep sea sediments are found at the top of Mt. Everest in the Himalayas.
  111.  Examples of mountain ranges formed by collision of continents include:
  112.  
  113. Himalayas (India and Asia)
  114. Appalachia (North America and Africa)
  115. Urals ( Europe and Asia)